home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / PRINTING / PAGESET / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1996-09-12  |  1KB  |  57 lines
  1. unit Demo;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, PageSetup;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     PageSetupDialog1: TPageSetupDialog;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     New1: TMenuItem;
  15.     Open1: TMenuItem;
  16.     Save1: TMenuItem;
  17.     N1: TMenuItem;
  18.     Pagesetup1: TMenuItem;
  19.     Print1: TMenuItem;
  20.     N2: TMenuItem;
  21.     Exit1: TMenuItem;
  22.     About1: TMenuItem;
  23.     procedure Pagesetup1Click(Sender: TObject);
  24.     procedure Exit1Click(Sender: TObject);
  25.     procedure About1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. uses Unit2;
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.Pagesetup1Click(Sender: TObject);
  42. begin
  43.     PageSetupDialog1.Execute;
  44. end;
  45.  
  46. procedure TForm1.Exit1Click(Sender: TObject);
  47. begin
  48.     Application.Terminate;
  49. end;
  50.  
  51. procedure TForm1.About1Click(Sender: TObject);
  52. begin
  53.     About.ShowModal;
  54. end;
  55.  
  56. end.
  57.